home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
BARMENU.ZIP
/
MENUDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-09-13
|
582b
|
24 lines
Program MenuDemo;
Uses MenuUnit, Crt;
Var
Choice: Integer;
M: BBMenu;
BEGIN
CLRSCR;
M.Init( 25, 7, 18);
M.AddPrompt('Open a New File');
M.AddPrompt('Existing File');
M.AddPrompt('Close A File');
M.AddPrompt('Quit');
Choice:= M.GetChoice;
GotoXY(1, 24); ClrEol;
Case Choice OF
0: Writeln('No Choice Was Made');
1: Writeln('Procedure NewFile Should Be Called');
2: Writeln('Procedure ExistingFile Should Be Called');
3: Writeln('Procedure CloseFile Should Be Called');
4: Writeln('Quitting ...');
END;
M.Done;
END.